home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / DATAUTIL / DBASEUT1.LZH / WINDOW.PRG < prev   
Text File  |  1985-11-03  |  1KB  |  28 lines
  1. *Procedure Window
  2. *--------------------------------------------------------+
  3. *------------------------------------------------------+ |
  4. * Copyright (c) 1985                                   | |
  5. * I N T E G R A T E D   M I C R O    S O L U T I O N S | |
  6. * 7033 Sunset Blvd  Suite 225B                         | |
  7. * Los Angeles, California  90028                       | |
  8. * (213) 466-9157   (213) 223-8188                      | |
  9. *------------------------------------------------------+ |
  10. *--------------------------------------------------------+
  11. procedure window
  12. set color to bgr/,bgr/
  13. store colsend - colsstart + 1 to whaxis
  14. store rowsend - rowsstart + 1 to wvaxis
  15. store rowsstart  to wrow
  16. store chr(201)+substr(wdash,1,whaxis -2)+chr(187) to wrowtop
  17. store chr(200)+substr(wdash,1,whaxis -2)+chr(188) to wrowbot
  18. store chr(186)+substr(wblank,1,whaxis -2)+chr(186) to wcolstring
  19. @ rowsstart,colsstart get wrowtop
  20. do while wrow < rowsend
  21.   store wrow + 1 to wrow
  22.   @ wrow,colsstart get wcolstring
  23. enddo
  24.   @ rowsend,colsstart get wrowbot   
  25. clear gets
  26. set color to bgr/,/bgr
  27. return
  28.